5 POKE55,0:POKE56,56:CLR
10 POKE53280,0:POKE53281,0:PRINTCHR$(147)CHR$(142)CHR$(8):POKE53272,21
20 PRINT""TAB(14)"[156]PLEASE WAIT"
30 SYS57812"CROSS FONT",8,0
40 POKE780,0
50 POKE781,0
60 POKE782,56
70 SYS65493
80 PRINT""TAB(14)"[159]PLEASE WAIT
81 [158]57812"XPLAYER",8,0:[143] LOAD PLAYER
82 [151]780,0
83 [151]781,0
84 [151]782,64
85 [158]65493
90 [153]"LOADCONTWAIT"[163]11)"THE CRUCIVERBALIST"
95 [153]"PRINT"[163]7)"A CROSSWORD PLAYER PROGRAM"
96 [153]""[163]7)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
97 [153][163]7)"(null)        PUZZLES         (null)"
98 [153][163]7)"(null)                        (null)"
100 [153][163]7)"(null) 1] COMMODORE CAPER     (null)"
105 [153][163]7)"(null) 2] A MYSTERIOUS AFFAIR (null)"
110 [153][163]7)"(null) 3] THE OLYMPICS        (null)"
113 [153][163]7)"(null) 4] FRAMEWORK           (null)"
114 [153][163]7)"(null) 5] THE SPICE OF LIFE   (null)"
115 [153][163]7)"(null) 6] FOR THE BIRDS       (null)"
116 [153][163]7)"(null)                        (null)"
117 [153][163]7)"(null) 7] INSTRUCTIONS        (null)"
120 [153][163]7)"(null) 8] RETURN TO LOADSTAR  (null)"
121 [153][163]7)"(null)                        (null)"
122 [153][163]7)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
125 [153]"CLR      (C) 1988  BY BARBARA SCHULAK"
130 [153]"OPEN       PUZZLES BY BARBARA SCHULAK"
150 [161]K$:[139]K$[178]""[167]150
160 K[178][197](K$):[139]K[179]1[176]K[177]8[167]150
170 [139]K[178]8[167]9000:[143] LOADSTAR
180 [139]K[178]7[167][141]5000:[137]90:[143] INSTRUCTIONS
190 [139]K[178]1[167]F$[178]"COMMODORE":[143]F$MUSTBE13ORLESSCHARS
200 [139]K[178]2[167]F$[178]"MYSTERY"
210 [139]K[178]3[167]F$[178]"OLYMPIC"
211 [139]K[178]4[167]F$[178]"FRAMEWORK"
212 [139]K[178]5[167]F$[178]"SPICE"
213 [139]K[178]6[167]F$[178]"FOR THE BIRDS"
214 [151]214,17:[153]:[153]"DEF"[163]13)"LOADING FILE..."
215 [151]53272,31:X[178][195](F$):[151]828,X[170]3
216 [129]I[178]1[164]X:[151]831[170]I,[198]([202](F$,I,1)):[130]
217 [151]829,[198]("@")
218 [151]830,[198]("0")
219 [151]831,[198](":")
220 [158]57812F$,8,0:[143] LOAD DATA
230 [151]780,0
240 [151]781,0
250 [151]782,128
260 [158]65493
270 [158]16384
330 [151]53272,21:[137]90
340 :
5000 [153]"LOADORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
5005 [153]"(null)CONT         THE CRUCIVERBALIST           WAIT(null)";
5010 [153]"-``````````````````````````````````````<";
5015 [153]"}LIST                                      WAIT}";
5020 [153]"(null)LIST    THIS PROGRAM PRESENTS SEVERAL     WAIT(null)";
5025 [153]"(null)LIST CROSSWORD PUZZLES FOR YOUR SOLVING   WAIT(null)";
5030 [153]"(null)LIST ENJOYMENT.  TO PLAY SELECT THE       WAIT(null)";
5035 [153]"(null)LIST PUZZLE OF YOUR CHOICE FROM THE MAIN  WAIT(null)";
5040 [153]"(null)LIST MENU.  ONCE THE PUZZLE HAS LOADED,   WAIT(null)";
5045 [153]"(null)LIST USE THE CURSOR KEYS TO MOVE AROUND   WAIT(null)";
5050 [153]"(null)LIST THE GRID AND PRESS THE LETTER KEYS   WAIT(null)";
5055 [153]"(null)LIST TO ENTER YOUR SOLUTION.  BLACK       WAIT(null)";
5060 [153]"(null)LIST SQUARES INDICATE THE END OF WORDS.   WAIT(null)";
5062 [153]"(null)LIST                                      WAIT(null)";
5065 [153]"(null)LIST    THE DEFINITIONS ARE DISPLAYED AT  WAIT(null)";
5070 [153]"(null)LIST THE BOTTOM OF THE SCREEN AND         WAIT(null)";
5075 [153]"(null)LIST REPRESENT THE CLUES FOR THE SQUARE   WAIT(null)";
5080 [153]"(null)LIST THAT YOUR CURSOR IS ON.  AS YOU MOVE WAIT(null)";
5085 [153]"(null)LIST THE CURSOR, THE CLUES WILL CHANGE.   WAIT(null)";
5095 [153]"(null)LIST                                      WAIT(null)";
5100 [153]"(null)LIST                                      WAIT(null)";
5105 [153]"}LIST                                      WAIT}";
5110 [153]"-``````````````````````````````````````<";
5115 [153]"}CLR             PRESS RETURN             WAIT}";
5120 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";:[151]2023,125:[151]56295,1
5125 [161]K$:[139]K$[179][177][199](13)[167]5125
5135 :
6000 [153]"LOADORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
6005 [153]"(null)CONT         THE CRUCIVERBALIST           WAIT(null)";
6010 [153]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<";
6015 [153]"(null)LIST                                      WAIT(null)";
6020 [153]"(null)LIST    CONTROLS:                         WAIT(null)";
6025 [153]"(null)LIST                                      WAIT(null)";
6030 [153]"(null)LIST F1: TOGGLE THE CURSOR ADVANCE TO     WAIT(null)";
6035 [153]"(null)LIST       EITHER ACROSS OR DOWN          WAIT(null)";
6040 [153]"(null)LIST F3: SAVE A PUZZLE THAT IS PARTIALLY  WAIT(null)";
6045 [153]"(null)LIST       FINISHED                       WAIT(null)";
6050 [153]"(null)LIST F5: RECEIVE A LETTER HINT            WAIT(null)";
6055 [153]"(null)LIST F7: CHECK TO SEE IF PUZZLE HAS BEEN  WAIT(null)";
6060 [153]"(null)LIST       SOLVED                         WAIT(null)";
6062 [153]"(null)LIST                                      WAIT(null)";
6065 [153]"(null)LIST F2: SEE THE SOLUTION                 WAIT(null)";
6070 [153]"(null)LIST F4: LOAD A PARTIALLY COMPLETED       WAIT(null)";
6075 [153]"(null)LIST       PUZZLE                         WAIT(null)";
6080 [153]"(null)LIST F6: CLEAR THE GRID (START OVER)      WAIT(null)";
6085 [153]"(null)LIST F8: RETURN TO MAIN MENU              WAIT(null)";
6095 [153]"(null)LIST                                      WAIT(null)";
6100 [153]"(null)LIST                                      WAIT(null)";
6105 [153]"(null)LIST                                      WAIT(null)";
6110 [153]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<";
6115 [153]"(null)CLR             PRESS RETURN             WAIT(null)";
6120 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";:[151]2023,125:[151]56295,1
6125 [161]K$:[139]K$[179][177][199](13)[167]6125
6130 [142]
6135 :
9000 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
9005 [151]53272,21:[153]"LOAD"
9010 [139]ER[179][177]63[167][128]
9020 [147]"HELLO CONNECT",8
9999 :
10000 [159]15,8,15,"S0:CROSSWORD PLAYER":[160]15:[148]"0:CROSSWORD PLAYER",8